home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
ZARCON03.422
< prev
next >
Wrap
Text File
|
1993-02-20
|
6KB
|
208 lines
Conan's fix for previous version with help of Zarquon...
Conan #1 @7304
Tue Feb 16 15:12:25 1993
┌──────────────────────────────────────────────────────────────────────┐
│Title: ZARCON03.MOD │
│Authors: Conan and Zarquon │
│Version: 4.22 │
│Difficulty: █░░░░░░░░░ │
│Description: Fixed version of CONAN002.MOD...the previous version had │
│a little problem with a FEEDBACK void that I accidentally left in there.
└──────────────────────────────────────────────────────────────────────┘
Step One
~~~~ ~~~~
Please backup your source. I take no responsiblity whatsoever for any damage
that this mod may make onto your system.
(I seriously doubt that'll happen)
PKZIP SOURCE *.C *.H *.MAK
Step Two
~~~~ ~~~
This mod is simple block reading....make sure your source is backed up
in case this doesn't work. (It may not but most likely will)
But here we go....
Search for this chunk of void in BBSUTL.C:
void reqchat(void)
{
int ok;
char s[81];
nl();
nl();
ok=sysop2();
if (restrict_chat & thisuser.restrict)
ok=0;
if (ok) {
if (chatcall) {
chatcall=0;
pl(get_string(597));
topscreen();
} else {
prt(2,get_string(598));
inputl(s,70);
if (s[0]) {
chatcall=1;
sprintf(chatreason,"%s: %s",get_stringx(1,33), s);
nl();
sysoplog(chatreason);
for (ok=strlen(chatreason); ok<80; ok++)
chatreason[ok]=32;
chatreason[80]=0;
topscreen();
pl(get_string(599));
nl();
}
}
} else {
pl(get_string(600));
nl();
pl(get_string(601));
strcpy(irt,get_stringx(1,34));
irt_name[0]=0;
imail(1,0);
}
}
....and replace that chunk with this one.......
/* REPLACE YOUR OLD REQCHAT VOID WITH THIS ONE */
/* START BLOCK READ HERE */
void reqchat(void)
{
int ok;
char s[81];
nl();
nl();
ok=sysop2();
if (restrict_chat & thisuser.restrict)
ok=0;
if (ok) {
if (chatcall) {
chatcall=0;
pl("Chat call turned off.");
topscreen();
} else {
prt(7,"Chat Reason: ");
inputl(s,70);
if (s[0]) {
chatcall=1;
sprintf(chatreason,"Chat: %s",s);
nl();
sysoplog(chatreason);
for (ok=strlen(chatreason); ok<80; ok++)
chatreason[ok]=32;
chatreason[80]=0;
topscreen();
chatcall=0;
nl();
page_reqs++;
if (page_reqs <= 5) {
pl("Now Getting SysOp ");
nl();
nl();
pl("PLEASE HOLD");
system("VPLAY /Q TEST"); /*!!!!NOTE ONE!!!!*/
topscreen();
} else {
nl();
prt(2,"The sysop appears to be busy please use feedback instead.");
nl();
strcpy(irt,"Tried Paging.");
imail(1,0);
}
if (page_reqs >= 7 ) { /* This little section will hangup on*/
nl(); /* the user if they constantly hit 'C'*/
nl(); /* in hopes of driving you away*/
prt(3,"See ya later.");/* from whatever you're doing to talk*/
hangup=1; /* to them. Change the 7 to whatever */
}
/* pl("Chat call turned ON.");*/
nl();
}
}
} else {
pl(get_string(600)); /* This part fixed for 4.22 */
nl(); /* from the other mod that */
pl(get_string(601)); /* had the feedback menu in it */
strcpy(irt,get_stringx(1,34));
irt_name[0]=0;
imail(1,0);
}
}
Step Three
~~~~ ~~~~~
At the top of BBSUTL.C search for this:
#pragma hdrstop
and right underneath it add this:
int page_reqs;
NOTE ONE:
~~~~ ~~~~
Where it says VPLAY /Q TEST I have it set in MY source to do this:
PLAYCMF /Q RUSH.CMF
that's of course only for soundblaster....and if you want to have
a .CMF page you, make sure SBFMDRV.COM is loaded before you load your BBS
(this may cause a memory problem for you....but i have 4 megs of RAM)
I would suggest a .VOC which doesn't take up memory.
I don't know what sound player you would use for ADLIB...
Step Four
~~~~ ~~~~
Of course, this mod is only for 4.22 but with a little fixing up I'm sure
it could be for 4.21a and down if you really wanted it to. I appreciate
greatly the help of Zarquon (CONDITION: Critical in Rhode Island) who
noticed my errors in the previous version of this mod that I released...
(the reason I named this mod ZARCON03..Zarquon and Conan) anyways..if
you need some help with this mod just e-mail me on IceNet 1@7304
or if you'd like to e-mail Zarquon get him at 1@4106 on WWIVNet
1C7ona1N
2
3C
│C
│
4C
│C
│
5C
──
──
┼
6AC
──
───────
7AC──────·· · ···
8AC· ··──────
─
9AC
┼
──
─
:C
│
Sy
sO
;AC
p: C
ona
<AC
nC
WW
=AC
iV
v4.
2
>AC
2
│
?C
│ 3oo
/12o
@AC
o/24
oo/9
AAC
6ooC
7o
BAC3
·
25
CAC5
·
6
6o
DAC
6 │
EC
│ @73
04
of
FAC Ice
Ne
t
GACC
@4
73
HAC
CO
M£i
IAC
nk │
JC
│C
P
KACerf
ect Wor
LAC
ld B
B
S
MACC
│
N
O